home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Source / Shaders / WWShaders / WWAlphaPaintedPlastic.sl < prev    next >
Encoding:
Text File  |  1995-03-22  |  521 b   |  22 lines
  1. surface 
  2. WWAlphaPaintedPlastic(float  Ks    = .5, 
  3.                              Kd    = .5, 
  4.                      Ka    =  1, 
  5.                      roughness = .1;
  6.          color     specularcolor = 1;
  7.         string    mapname = "")
  8. {
  9.    point  Nf = faceforward( N, I );
  10.  
  11.    if (mapname != "")
  12.    {  Ci = color texture(mapname);  /* Use s and t */
  13.       Oi = float texture(mapname[3]);  /* Use s and t */
  14.    }
  15.    else
  16.    {  Ci = Cs;
  17.       Oi = Os;
  18.    }
  19.    Ci = Oi * (Ci * (Ka*ambient() + Kd*diffuse(Nf)) + specularcolor * Ks * specular(Nf,-I,roughness) );
  20. }
  21.  
  22.